a 


Bas 


FFFFFFFFFRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTTT LLet 
FFFFFRFFRRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTFT Lie 
FFFFFRFRRRFFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTITTTTTTTT §=LtL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFE 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 

FFF 000 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR = =RRR TTT LLL 

FFF 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 0 000 RRR RRR RRR RRR TTT LLL 

FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLELLLLLLLLLL 


) 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 


LOL LL LL LL LL LL LL LO LO LP LO LL LL LL 


*eF LE**1D**FORMACROS 


| 
FFFFFFFFFE © 000000 RRRRRRRR MM = MM AAAAAA ~—=sCCCCCCCC. -RRRRRRRR ©» 000000 -—=——«*SSSSSSSSS 
FFFFFFFFFF 000000  RRRRRRRR_ MM MM —CAAAAAA.——=CCECECCC. ORRRRRRRR == 000000_—=S«—_—S$S$S8SS | 
FF 00 =©=600:«RR.:SCORR':COMMMMsONMM AA OAR CC RRC RR «00—-—=«O0D SS 
FF 00 00 RR RR MMMM MMMM AA = AA CC RR RR 00 _—«00.- $8 
FF 00 OO RR RR MM MM MM AA AA CC RR RR 00 —«00- $8 
FF 00 OO RR RR MM MM MM AA = AA CC RR ——s«RR-00~—s«O.s $8 
FFFFFFFF 00 00 RRRRRRRR MM OM AA OAK. CCC RRRRRRRR 00 «= s«O0.—S*«SSSSSS | 
FFFFFFFE 00 00 RRRRRRRR «MM sO AA. CCC RRRRRRRR 00 © 00_~—Ss«S$8SS8S | 
FF 00 00 RR RR MM MM AAAAAAAAAA CC RR RR =00-——«*O $s 
FF 00 00 RR RR HM MM AAAAAAAAAA CC RR RR = -00—=—«* 35 | 
FF 00 RR RR MM MM AA AA CC RR RR 00 ~—sO00 ee | 
FF RR ORR OM «=O OA OA. CCC RR RR 00__00 iene. 
FF 00 RR = RR MM MM AA AA CCCCCCCC RR  ——-RR_~—«-0000D0D-—SSSSSSSS birt 
FF 000000 RR =soaRR:«-MM©=0sCOMM:OAA CAA ~—SCCCCECECE «=RR~=—SCORR_~—«(00000 = SSSS8S8S foes | 
RRRRRRRR © EEEEEEEEEE — gg0000 
RRRRRRRR - EEEEEEEEEE 00000 
RR ORR OEE oo =o | 
RR sORR.sCEE a0 =a | 
RR RRs a0 =a 
RR sR a0 0s 
RRRRRRRR EE nr) 
RRRRRRRR EE a0 ad 
RR RR EE aa ao a0 
EE 0a a0 ad | 
EE aoa 
EE ao aa | 
EE goao 00 | 
EE gaa a0 | 
| 


roast 16-SEP-1984 16:50:5%.39 Page 1 


' Macros for FORTRAN Run-Time Library 
: File: FORMACROS.REQ, Edit: SBL10 


SREP ERRATA RAE EAA EEA AAA AAA AAA EERE AEE eee 
' 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS pretence nee fe LICENSE AND MAY BE USED AND copite 
ONLY IN ACCORDANCE W THE TERMS HT 


E 0 W 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
At i @ NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


TAL_ ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 


C 
DIGI 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


Author: Steven B. Lionel, 77-Jan-1983 
, 1-001 = Original. SBL 7-Jan-1983 


i i macro to call FORSSSIGNAL_STO and return. This saves Lines of code 
i _in the source. It can replace a call to FORSSSIGNAL_STO anywhere. 


MACRO 


eronsst ia. STO (signame) = 


FORSSSIGNAL 510 (sign 
aut - LL (ZREMAINING) 


ZELSE 
SEREMAINING 

FI 

RETURN 0; 

END % 


tructure definitions used to declare the FAB and NAM as being offset from 


CB. To use, make the following declarations: 


BIND 
FAB = CCB: REF $FORSFAB_CCB_STRUCT, 


leeeeeeeeeetereeeeeeeeeteeKeeeeeeteeeteneeeeeeneeneeeeeeeenereeeterererereres 
' 


* 
® 
® 
® 
® 
® 
® 
* 
® 
® 
® 
® 
® 
* 
® 
® 
* 
® 
® 
® 
*® 
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' NAM = CCB: REF SFORSNAM_CCB_STRUCT; 

he. 

STRUCTUR 
RSFAB_CCB_STRUCT CO, P, S, EJ] = 
FABSC_BCN) 
(SFORSFAB_CCB_STRUCT+RABSC_BLN+0)<P,S,E>, 


SFOR wan CCB-S STRUCT CO, P, S, EJ = 
(SFORSRAM, CCB_STRUCT+RABSC_BLN+FABSC_BLN+0)<P,S,E>; 


! End of file FORMACROS.REQ 
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ee] 
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